home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Magazine / SFX / sfx-data / _rexx / Integrate.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-07-10  |  1.1 KB  |  58 lines
  1. /* SFX Integrate */
  2.  
  3. OPTIONS RESULTS
  4. ADDRESS REXX_SFX
  5.  
  6. SFX_GetActiveBuffer
  7. buf1=RESULT
  8. IF buf1>-1 THEN DO
  9.     SFX_GetLength buf1
  10.     slen=RESULT
  11.     SFX_GetRate buf1
  12.     srat=RESULT
  13.     SFX_GetChannels buf1
  14.     cha=RESULT
  15.  
  16.     SFX_NewBuffer slen srat cha
  17.     buf2=RESULT
  18.     IF buf2>-1 THEN DO
  19.         brk=0
  20.         DO ch=0 TO cha
  21.             SFX_IsChannelActive buf1 ch
  22.             IF RESULT>0 THEN DO
  23.                 SFX_InitProWin slen '"Working on Integrate['ch']"'
  24.                 pwi=RESULT
  25.                 IF pwi>-1 THEN DO
  26.                     SFX_GetSampleValue buf1 ch 0
  27.                     oldval=RESULT
  28.                     DO pos=1 TO slen
  29.                         SFX_RefrProWin pwi pos
  30.                         IF RESULT=0 THEN DO
  31.                             SFX_GetSampleValue buf1 ch pos
  32.                             newval=RESULT
  33.                             int=oldval+(newval+newval)
  34.                             SFX_PutSampleValue buf2 ch pos int
  35.                             oldval=int
  36.                         END
  37.                         ELSE DO
  38.                             brk=1
  39.                             LEAVE pos
  40.                         END
  41.                     END
  42.                     SFX_RemoveProWin pwi
  43.                 END
  44.                 ELSE DO
  45.                     SFX_Message '"Can`t open ProceedWindow !"'
  46.                     LEAVE ch
  47.                 END
  48.             END
  49.             IF brk=1 THEN LEAVE ch
  50.         END
  51.         SFX_RedrawBuffer buf2
  52.     END
  53.     ELSE SFX_Message '"Can`t add samplebuffer !"'
  54. END
  55. ELSE SFX_Message '"No sample to operate on !"'
  56. SFX_Activate
  57. EXIT
  58.